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-- FileLookup.Mesa; edited by Sandman on October 17, 1977 8:29 AM 

DIRECTORY 

AUoFileDefs: FROM "al tof iledefs" f 
DirectoryDefs: FROM "directorydef s M , 
FileLookupDefs: FROM "f ilelookupdef s" , 
InlineDefs: FROM "in! inedef s" , 
IODefs: FROM "iodefs", 
SystemDefs: FROM "systemdef s M , 
StringDefs: FROM "stringdef s" , 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM SegmentDefs; 

FileLookup: PROGRAM IMPORTS DirectoryDefs, IODefs, SegmentDefs, StringDefs, SystemDefs 

EXPORTS FileLookupDefs, SegmentDefs SHARES SegmentDefs ■ 
BEGIN 

FP: TYPE ■ AUoFileDefs. FP; 

Entry: TYPE ■ RECORD [ 
link: POINTER TO Entry, 
name: STRING, 
fp: FP]; 

HashSize: CARDINAL - 19; 
Hashlndex: TYPE - [0 . .HashSize) ; 

HashVector: ARRAY Hashlndex OF POINTER TO Entry; 

HashValue: PROCEDURE [s: STRING] RETURNS [Hashlndex] - 
BEGIN OPEN InlineDefs; 
i: CARDINAL; 

i «- BITAND[LOOPHOLE[s[0]],137B] + BITAND[LOOPHOLE[s[s . length/2]] , 137B]; 
RETURN[BITXOR[i,s.length*17B] MOD HashSize]; 
END; 

InsertEntry: PROCEDURE [name: STRING, fp: POINTER TO FP] - 
BEGIN 

hv: Hashlndex ■ HashValue[name]; 
entry: POINTER TO Entry; 

entry <- SystemDefs .AllocateHeapNode[SIZE[Entry]]; 
entry. name «- name; 
entry. fp <- fpt; 
entry. link «- HashVector[hv] ; 
HashVector[hv] «- entry; 
END; 

FindEntry: PROCEDURE [name: STRING, fp: POINTER TO FP] RETURNS [BOOLEAN] - 
BEGIN 

hv: Hashlndex * HashValue[name]; 
entry: POINTER TO Entry; 

FOR entry <- HashVector[hv] , entry. link UNTIL entry ■ NIL DO 
IF StringDefs. EquivalentString[name, entry. name] THEN 
BEGIN 

fpt <- entry. fp; 
RETURN[TRUE]; 
END; 
ENDLOOP; 
RETURN[FALSE]; 
END; 

GetFileName: PUBLIC PROCEDURE [file: FileHandle] RETURNS [STRING] - 
BEGIN 

hv: Hashlndex; 
entry: POINTER TO Entry; 
localname: STRING ♦■ [40]; 
heapname: STRING; 
FOR hv IN Hashlndex DO 

FOR entry <- HashVector[hv] , entry. link UNTIL entry - NIL DO 
IF entry .fp. serial ■ file.fp. serial THEN RETURN[entry . name]; 
ENDLOOP; 
ENDLOOP; 
IF -DirectoryDefs .DirectoryLookupFP[@f ile.fp , localname] THEN 

SIGNAL InvalidFP[@file.fp]; 
heapname <- SystemDefs. AllocateHeapString[localname. length]; 
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Str i ngDef s. AppendString[ he apname, local name]; 
InsertEntry[heapname,@f ile.fp]; 
RETURN[heapname]; 
END; 

NewFile: PUBLIC PROCEDURE [ 

name:STRING, access:AccessOptions, version:VersionOptions] 

RETURNS [FileHandle] ■ 

BEGIN OPEN InlineDefs; 

fp: FP; old, create: BOOLEAN; 

[access, version] <- Val idateOptions[access, version]; 

create <- BITAND[version,01dFileOnly]"0; 

old <- FindEntry[name,@fp]; 

IF -old THEN old <- DirectoryDefs .DirectoryLookup[@fp , name, create] ; 

IF (old AND BITAND[version,NewFileOnly]#0) 

OR (-old AND -create) THEN ERROR FileNameError[name] ; 

RETURN[InsertFile[@fp, access]]; 

END; 

ValidateOptions: PROCEDURE [ 

access:AccessOptions, version:VersionOptions] 

RETURNS [AccessOptions, VersionOptions] ■ 

BEGIN OPEN InlineDefs; 

IF access ■ Def aul tAccess THEN access <- Read; 

-- IF version ■ Def aul tVersion THEN version <- 0; 

IF BITAND[version,NewFileOnly+01dFileOnly] ■ NewFileOnly+OldFileOnly 

OR (BITAND[version,NewFileOnly]#0 AND BITAND[access ,Append>0) 

THEN ERROR Fi leAccessError[NIL] ; 
IF BITAND[access,Append]*0 THEN 

version «- BITOR[version,01dFileOnly]; 
RETURN [access, version] 
END; 

-- FileRequests 

FileRequest: TYPE - RECORD [ 
link: POINTER TO FileRequest, 
name: STRING]; 

RequestHead: POINTER TO FileRequest «- NIL; 

AddFileRequest: PUBLIC PROCEDURE [name: STRING] « 
BEGIN 

r: POINTER TO FileRequest - SystemDef s. AllocateHeapNode[SIZE[FileRequest]]; 
r.name «- name; 
r.link <- RequestHead; 
RequestHead «- r; 
END; 

FilesMissing: PUBLIC ERROR » CODE; 

ProcessFileRequests: PUBLIC PROCEDURE ■ 
BEGIN 

r, next: POINTER TO FileRequest; 

checkone: PROCEDURE [fp: POINTER TO Al toFileDef s. FP, name: STRING] RETURNS [BOOLEAN] 
BEGIN 

r, next: POINTER TO FileRequest; 
prev: POINTER TO FileRequest «- NIL; 
FOR r ♦- RequestHead, next UNTIL r - NIL DO 
next <~ r . 1 ink; 

IF StringDef s.EquivalentString[r . name, name] THEN 
BEGIN 

InsertEntry[r .name, fp]; 
IF prev « NIL THEN RequestHead <- next 
ELSE prev. link <- next; 
SystemDef s .FreeHeapNode[r]; 
EXIT; 
END; 
prev «- r; 
ENDLOOP; 
RETURN[RequestHead - NIL] 
END; 

D i rec to ry Def s. EnumerateDi rectory [checkone]; 
IF RequestHead # NIL THEN 
BEGIN OPEN IODefs; 
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WriteLine["Fi1es not found:"]; 

FOR r <- RequestHead, next UNTIL r - NIL DO 

next ♦■ r. link; 

WriteChar[' ]; WriteLine[r.name]; 

SystemDef s.FreeHeapNode[r]; 

ENDLOOP; 
RequestHead «- NIL; 
ERROR FilesMissing; 
END; 
END; 

-- Main body 

i: Hashlndex; 

FOR i IN Hashlndex DO HashVector[i] ♦- NIL ENDLOOP; 

END... 



